home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Online / DalHelper / Install_DalHelper < prev    next >
Text File  |  1999-10-24  |  5KB  |  191 lines
  1. ; Installer Script for DalHelper Version 5.19
  2. ; $VER: Install_DalHelper V_5.19 (03.10.99)
  3.  
  4. (set #config-dal
  5. (cat "Configuration of DalHelper is only necessary if you use ChanServ,"
  6.      " MemoServ, and/or NickServ on DalNet and have not already cofigured it"
  7.      " during a previous install, or are creating a DalHelper:MCF.Dal file."
  8. ))
  9.  
  10. (set #install-docs
  11. (cat " Install documentation?\n"
  12.      "This consists of 4 files and their icons.\n"
  13. ))
  14.  
  15. (set #goodbye
  16. (cat "\nInstallation of DalHelper is Complete.\n\n"
  17. ))
  18.  
  19. (set #my-address
  20. (cat    "Donald T Becker\n"
  21.     "335 S Chestnut St\n"
  22.     "Mt Carmel Pa 17851-2219\n\n"
  23.     "email:   strdustr@ptd.net\n"
  24.     "IRC:     StarDustr!StarDustr@*.ptd.net\n"
  25. ))
  26.  
  27. (set dalrc (= 1))
  28. (set dhver (getversion "Rexx/DalHelper.amirx"))
  29. (set idver (getversion "Rexx/DalHelperID.amirx"))
  30. ;********************************************************************
  31.  
  32. (complete 1)
  33.  
  34. (set target1            (askdir
  35.     (prompt "Select Directory where your AmIRC program is")
  36.     (help "This directory should also have a  Rexx  directory in it")
  37.     (default "RAM:")
  38. ))
  39.  
  40. (set @def-target (target1))
  41. (set @old-file (tackon target1 "MCF.Dal"))
  42.  
  43. (if (Exists "Rexx:DalHelper.amirx" (noreq))
  44.     (run "delete <>nil: Rexx:DalHelper.amirx")
  45. )
  46.  
  47. (if (Exists @old-file (noreq))    (
  48.     (run "copy <>nil:" @old-file "RAM:")
  49. ;    (run "delete <>nil:" @old-file)
  50.     (set dalrc (- dalrc 1))
  51. ))
  52.  
  53. (if (Exists "env:MCF.Dal" (noreq))    (
  54.     (run "copy <>nil: env:MCF.Dal RAM:")
  55. ;    (run "delete <>nil: env:MCF.Dal")
  56.     (set dalrc (- dalrc 1))
  57. ))
  58.  
  59. (if (Exists "envarc:MCF.Dal" (noreq))    (
  60.     (run "copy <>nil: envarc:MCF.Dal RAM:")
  61. ;    (run "delete <>nil: envarc:MCF.Dal")
  62.     (set dalrc (- dalrc 1))
  63. ))
  64.  
  65. (if (Exists "MCF:MCF.Dal" (noreq))    (
  66.     (run "copy <>nil: mcf:MCF.Dal RAM:")
  67. ;    (run "delete <>nil: mcf:MCF.Dal")
  68.     (set dalrc (- dalrc 1))
  69. ))
  70.  
  71. (if (< dalrc 1)            (
  72.     (set fsize (getsize ("RAM:MCF.Dal")))
  73.     (if (< fsize 35)    (
  74.         (set dalrc (= 1))
  75.     ))
  76. ))
  77.  
  78. (if (= dalrc 1)            (
  79.    (run "echo >RAM:MCF.Dal $VER: MCF.Dal 5.19 (03.10.99)")
  80.  
  81.    (complete 10)
  82.    (set ncntr             (askstring
  83.        (prompt "Enter the number of Nicks that you have Registered.")
  84.        (help "Enter the number of Nicks you have Registered on Dalnet with Nickserv.")
  85.        (default "0")
  86.    ))
  87.  
  88.    (complete 20)
  89.    (while (> ncntr 0)
  90.       (set Dalinfo         (askstring
  91.           (prompt "Enter Registered Nick and Password.")
  92.           (help "Enter you Dalnet Registered Nick, a space and the Nick's Password."
  93.              " Remember that the Password is CaSe SeNsItIvE.")
  94.       ))
  95.       (run "echo >>RAM:MCF.Dal " Dalinfo)
  96.       (set ncntr (- ncntr 1))
  97.    )
  98.  
  99.    (complete 30)
  100.    (set ccntr             (askstring
  101.        (prompt "Enter the number of Channels that you have Registered.")
  102.        (help "Enter the number of Channels you have Registered on Dalnet with Nickserv.")
  103.        (default "0")
  104.    ))
  105.  
  106.    (complete 40)
  107.    (while (> ccntr 0)
  108.       (set Dalinfo        (askstring
  109.           (prompt "Enter Registered Channel and Password.")
  110.           (help "Enter you Dalnet Registered Channel, a space and the Channel's Password."
  111.              " Remember that the Password is CaSe SeNsItIvE. Don't forget the # in front"
  112.              " of the Channel Name.")
  113.       ))
  114.       (run "echo >>RAM:MCF.Dal " Dalinfo)
  115.       (set ccntr (- ccntr 1))
  116.    )
  117. ))
  118.  
  119. (run "copy <>nil: RAM:MCF.Dal" target1)
  120. (run "delete <>nil: RAM:MCF.Dal")
  121.  
  122. (set target2            (askdir
  123.     (prompt "Select Rexx Directory")
  124.     (help "Directory where DalHelper.amirx and DalHelperID.amirx will be copied to.")
  125.     (default @def-target)
  126. ))
  127.  
  128. (set dhfile (tackon target2 "DalHelper.amirx"))
  129. (set oldver (- 1 1))
  130. (if (Exists dhfile) (
  131.     (set oldver (getversion dhfile))
  132. ))
  133.  
  134. (if (> dhver oldver)(
  135.     (complete 50)
  136.     (copyfiles (
  137.         (source  "Rexx")
  138.         (dest    target2)
  139.         (choices "DalHelper.amirx")
  140.     ))
  141. ))
  142. (set idfile (tackon target2 "DalHelperID.amirx"))
  143. (set oldver (- 1 1))
  144. (if (Exists idfile)(
  145.     (set oldver (getversion idfile))
  146. ))
  147.  
  148. (if (> idver oldver)(
  149.     (complete 55)
  150.     (copyfiles (
  151.         (source  "Rexx")
  152.         (dest    target2)
  153.         (choices "DalHelperID.amirx")
  154.     ))
  155. ))
  156.  
  157. (complete 60)
  158. (if (askbool
  159.     (prompt "Do you wish to Install DalHelper Aliases??")
  160.       (help "This will install Aliases that make using DalHelper easier.")
  161.       (choices "YES" "NO")
  162.       (default 1))
  163.       (
  164.         (message ("Start a copy of AmIRC that has\nAMIRC.1 in the top left corner.\nClick Proceed when ready."))
  165.         (run "rx \"address AMIRC.1 say '/ALIAS CS /Rx DalHelper C %p'\"")
  166.         (run "rx \"address AMIRC.1 say '/ALIAS MS /Rx DalHelper M %p'\"")
  167.         (run "rx \"address AMIRC.1 say '/ALIAS NS /Rx DalHelper N %p'\"")
  168.         (run "rx \"address AMIRC.1 say '/ALIAS IDALL /Rx DalHelper IDALL'\"")
  169. ))
  170.  
  171. (complete 75)
  172. (set docs (askbool (prompt #install-docs)
  173.         (help #install-docs-help)
  174.         (choices "YES" "NO")
  175.       )
  176. )
  177.  
  178. (complete 90)
  179. (if (= docs 1)                (
  180.     (set target3            (askdir
  181.         (prompt "Select Directory for DalHelper.doc")
  182.         (help "Directory where DalHelper.doc will be copied to.")
  183.         (default @def-target)
  184.     ))
  185.     (run "copy <>nil: docs/Dal#?" target3)
  186. ))
  187.  
  188. (complete 100) (message #goodbye #my-address)
  189.  
  190. (exit (quiet))
  191.